
Set conn = CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\MaxZ Soft\SiCoAc\bd\bdPortero.mdb;Jet OLEDB:Database Password=portero"
conn.Open strConnect
strSQL="ALTER TABLE opciones ADD COLUMN res_foto SMALLINT default 50"
'strSQL="ALTER TABLE opciones drop COLUMN res_foto"

conn.Execute(StrSQL)
